000200 IDENTIFICATION DIVISION.
000300 PROGRAM-ID. TS000002.
000400 ENVIRONMENT DIVISION.
000500 CONFIGURATION SECTION.
000600 DATA DIVISION.
000700 WORKING-STORAGE SECTION.
000800     COPY CBUC0002.
000900 01  SAMPLE02 PIC X(8) VALUE "SAMPLE02".
001000 01  A PIC 99.
001100 01  B PIC 99.
001200 01  C PIC 99.
001300 01  RES PIC 99.
001400 01  EXPECTED PIC 99.
001500 01  assert-name PIC X(20).
001600 LINKAGE SECTION.
001700     COPY CBUC0000.
001800 PROCEDURE DIVISION USING CBU-ctx.
001900     MOVE 5 TO EXPECTED.
002000     MOVE 5 TO A.
002100     MOVE 2 TO B.
002200     MOVE 5 TO C.
002300     INITIALIZE assert-name.
002400     CALL SAMPLE02 USING A B C RES.
002500     MOVE "(5,2,5)=5" TO assert-name.
002600     SET CBU-ASSERT-EQUAL TO TRUE
002700     SET CBU-ASSERT-INT TO TRUE
002800     MOVE EXPECTED TO CBU-ASSERT-EXPECTED-INT.
002900     MOVE RES      TO CBU-ASSERT-ACTUAL-INT.
003000     CALL CBU-assert USING CBU-ctx CBU-ASSERT-CALL-INTERFACE.
003100     GOBACK.
